www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="ConnDB.asp"--> <!--#include file="include/function.Common.asp"--> <!--#include file="include/Deep.Class.Template.asp"--> <!--#include file="include/Deep.Class.Cache.asp"--> <!--#include file="include/function.tag.template.asp"--> <!--#include file="include/function.tag.url.asp"--> <!--#include file="include/function.tag.common.asp"--> <% '是否html静态 if(site_isHTML=1)then call CloseConnDB() Response.Redirect("html/index.htm") end if Dim oDeep_Cache Set oDeep_Cache = New Deep_Cache oDeep_Cache.CacheGroupName="DeepStudy_url" '缓存组的名称 "Cache_Site_Index" ' 缓存对象的名称 Dim strHtml:strHtml="" if oDeep_Cache.CacheIsEmpty("Cache_Site_Index")=false Then strHtml = oDeep_Cache.GetValue("Cache_Site_Index") Else 'response.write "======== cache test============" dim oDeepTemplate set oDeepTemplate=new Deep_Template oDeepTemplate.templates_dir="themes/"&site_theme&"/" 'template=oDeepTemplate.readTemplateFile("index.htm") oDeepTemplate.readTemplateFile("index.template.html") '调入文件 'response.Write(oDeepTemplate.template) 'template=replace(template,"../base.css","themes/base.css") oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css" do_replace_siteConfig(oDeepTemplate) '替换网站基本配置信息标签 '导航 call do_replace_Channel() '广告 call do_replace_AD() 'response.Write( oDeepTemplate.template ) oDeepTemplate.replaceTag "custom_sort_url",getHTML_custom_sort_url ' 参数 {$fastLogin(46,8)} oDeepTemplate.replaceTagParameter "fastLogin","getHTML_fastLogin" oDeepTemplate.replaceTag "urlSort",getHTML_urlSort oDeepTemplate.replaceTagParameter "urlCool","getHTML_urlCool" oDeepTemplate.replaceTag "friendLink",getHTML_friendLink oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic oDeepTemplate.display() '显示 oDeep_Cache.SetValue "Cache_Site_Index", oDeepTemplate.template set oDeepTemplate=Nothing End If Response.Write strHtml 'oDeep_Cache.DelAllCache () ' =================== Set oDeep_Cache = Nothing call CloseConnDB() %>